   1 .
   2 .ATTACK
   3 .
  10 clear ;BC=66;FC=6;P=0;Q=10;CX=P;CY=Q;Z=430;gosub 540
  15 NT=0;CX=-21;CY=10;print " ATTACK
  20 CY=-39;print " NUMBER OF WALLS?:
  30 U=KN(1)div 10+13;CX=28;CY=-39;print U;if TR(1)=0goto 30
  40 if TR(1)=1U=U+6;goto 60
  50 A=rnd (99)
  60 @(1)=rnd (99);for A=2to U
  70 L=rnd (99);N=A-1;for B=1to N;NT=3;MU=L+B;NT=0;if L=@(B)goto 70
  80 next B
  90 @(A)=L;next A
 100 P=rnd (98)-49;Q=rnd (10)-5;clear ;BC=6;FC=9;gosub 540;P=P-28;Q=Q-23;for A=7to U;gosub 470;gosub 490;next A
 110 for A=2to 6;gosub 470;gosub 510;next A;X=@(1);Y=(X-1)div 10;X=X-Ymul 10;gosub 520
 120 CX=-36;CY=40;print "> YOUR MOVE <
 130 if TR(1)#0goto 155
 140 K=JX(1);J=JY(1);if K=0if J=0goto 130
 150 gosub 460;box H,I,5,5,1;X=X+rnd (2)mul K;Y=Y+rnd (2)mul J
 155 gosub 520;if X<1goto Z
 160 if X>10goto Z
 170 if Y<0goto Z
 180 if Y>9goto Z
 190 C=Ymul 10+X;for A=2to U;if C=@(A)goto Z
 200 next A
 210 for A=2to 6;L=@(A);if L<1goto 350
 220 T=(L-1)div 10;S=L-Tmul 10;V=X-S;W=Y-T;for B=2to 6;if A=Bgoto 240
 230 if L=@(B)goto 250
 240 next B;gosub 480;box H,I,5,5,1
 250 if V=0goto 280
 260 if V<0S=S-1
 270 if V>0S=S+1
 280 if W=0goto 310
 290 if W<0T=T-1
 300 if W>0T=T+1
 310 gosub 500;D=Tmul 10+S;@(A)=D;if D=Cgoto 440
 320 for B=7to U;if D#@(B)goto 340
 330 @(A)=-1;gosub 530;goto 350
 340 next B
 350 next A
 360 for A=2to 5;L=@(A);if L<1goto 390
 370 for B=A+1to 6;if L=@(B)@(A)=-1
 380 next B
 390 next A
 400 for A=2to 6;if @(A)>0goto 120
 410 next A;for A=1to 5;gosub 520;next A
 420 BC=202;FC=7;CY=40;print " ALL ATTACKERS DESTROYED!";for E=1to 30;NT=5;MU=70;next E;run 
 430 BC=1;FC=118;CY=40;print "YOU ZAPPED YOURSELF,TURKEY";goto 450
 440 FC=98;CY=40;print " YOU ARE  Z A P P E D !!!
 450 NT=2;for A=1to 15;MU=44;X=FC;MU=46;FC=BC;MU=48;BC=X;MU=46;next A
 452 for T=1to 5;&(17)=31;&(19)=37;&(21)=47;&(22)=31;for S=35to 15step -1;&(16)=S;next S;for S=15to 35;&(16)=S;next S;next T
 454 for O=22to 16step -1;&(O)=0;next O;run 
 460 H=P+Xmul 5;I=Q+Ymul 5;return 
 470 S=@(A);T=(S-1)div 10;S=S-Tmul 10
 480 H=P+Smul 5;I=Q+Tmul 5;return 
 490 box H,I,5,5,2;NT=2;MU=H;MU=I;NT=0;return 
 500 gosub 480
 510 box H,I,5,1,2;box H,I,1,5,2;box H,I,3,3,2;NT=2;MU=55;MU=53;MU=51;MU=53;MU=55;NT=0;return 
 520 gosub 460;box 0,40,160,8,2;box H,I,3,3,2;box H,I,1,1,1;NT=3;for E=1to 9;MU=80;next E;NT=0;return 
 530 box H,I,5,5,1;box H,I,3,3,3;box H,I,5,5,2;box H,I,3,3,3;box H,I,1,1,3;box H,I,3,3,2;box H,I,1,1,3
 535 NT=2;for E=1to 15;MU=33;next E;NT=0;box H,I,5,5,2;return 
 540 box P,Q,62,62,3;box P,Q,60,60,3;box P,Q,50,50,3;return 
>:return 
